home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / elflib.zip / ELF.LSP < prev    next >
Text File  |  1992-12-01  |  5KB  |  143 lines
  1. ;;; ELF.LSP
  2. ;;; Copyright 1992 by Mountain Software
  3. ;;;
  4. ;;;*===================================================================*
  5. ;;;
  6. ;;; This file contains symbolics for color attributes, border types,
  7. ;;; and key code values. This file can be included in any AutoLISP
  8. ;;; program file to define these symbols in any program that uses ELF.
  9. ;;;
  10. ;;; Screen attributes (colors)
  11. ;;; --------------------------
  12.  
  13. (Setq
  14.   ;======================== Foreground colors
  15.   black       0       ; Black
  16.   blue          1       ; Blue
  17.   green       2       ; Green
  18.   cyan          3       ; Cyan
  19.   red          4       ; Red
  20.   magenta     5       ; Magenta
  21.   brown       6       ; Brown
  22.   lgrey       7       ; Light grey (white)
  23.   dgrey       8       ; Dark grey
  24.   lblue       9           ; Light blue
  25.   lgreen      10      ; Light green
  26.   lcyan       11      ; Light cyan
  27.   lred          12      ; Light red
  28.   lmagenta    13      ; Light magenta
  29.   yellow      14      ; Yellow
  30.   white       15      ; Intense white
  31.   intense     16      ; Intensity bit
  32.   ;======================== Background colors
  33.   black_bg    0       ; Black
  34.   blue_bg     16      ; Blue
  35.   green_bg    32      ; Green
  36.   cyan_bg     48      ; Cyan
  37.   red_bg      64      ; Red
  38.   magenta_bg  80      ; Magenta
  39.   brown_bg    96      ; Brown
  40.   lgrey_bg    112      ; Grey
  41.   blink       128      ; Blink/intensity bit
  42.   ;======================== Border Attributes
  43.   no_bd       0       ; single line border
  44.   single_bd   1       ; single line border
  45.   double_bd   2       ; double line border
  46.   vdouble_bd  3       ; single horizontal, double vertical
  47.   hdouble_bd  4           ; single vertical, double horizontal
  48.   solid_bd    5       ; solid border
  49.   tlhl_bd     8       ; btype & 8  = hilight upper left
  50.   lrhl_bd     16      ; btype & 16 = hilight lower right
  51.   shadow_bd   32      ; btype & 32 = add drop shadow
  52. )
  53.  
  54. ;;;*===== Key Codes returned by (GetKey), the char code can be extracted
  55. ;;;      with the function (lobyte keycode), the scan code is extracted
  56. ;;;*===== with (hibyte keycode). The hex keycode is for reference only.
  57.  
  58. (Setq
  59. ;;======================================
  60. ;;Key       decimal     hex  char  scan
  61. ;;       keycode   keycode  code  code
  62. ;;======================================
  63.   F1_Key     15104  ; 0x3b00     0    59
  64.   F2_Key     15360  ; 0x3c00     0    60
  65.   F3_Key     15616  ; 0x3d00     0    61
  66.   F4_Key     15872  ; 0x3e00     0    62
  67.   F5_Key     16128  ; 0x3f00     0    63
  68.   F6_Key     16384  ; 0x4000     0    64
  69.   F7_Key     16640  ; 0x4100     0    65
  70.   F8_Key     16896  ; 0x4200     0    66
  71.   F9_Key     17152  ; 0x4300     0    67
  72.   F10_Key    17408  ; 0x4400     0    68
  73.  
  74.   S_F1_Key   21504  ; 0x5400     0    84
  75.   S_F2_Key   21760  ; 0x5500     0    85
  76.   S_F3_Key   22016  ; 0x5600     0    86
  77.   S_F4_Key   22272  ; 0x5700     0    87
  78.   S_F5_Key   22528  ; 0x5800     0    88
  79.   S_F6_Key   22784  ; 0x5900     0    89
  80.   S_F7_Key   23040  ; 0x5a00     0    90
  81.   S_F8_Key   23296  ; 0x5b00     0    91
  82.   S_F9_Key   23552  ; 0x5c00     0    92
  83.   S_F10_Key  23808  ; 0x5d00     0    93
  84.  
  85.   A_F1_Key   26624  ; 0x6800     0   104
  86.   A_F2_Key   26880  ; 0x6900     0   105
  87.   A_F3_Key   27136  ; 0x6a00     0   106
  88.   A_F4_Key   27392  ; 0x6b00     0   107
  89.   A_F5_Key   27648  ; 0x6c00     0   108
  90.   A_F6_Key   27904  ; 0x6d00     0   109
  91.   A_F7_Key   28160  ; 0x6e00     0   110
  92.   A_F8_Key   28416  ; 0x6f00     0   111
  93.   A_F9_Key   28672  ; 0x7000     0   112
  94.   A_F10_Key  28928  ; 0x7100     0   113
  95.  
  96.   C_F1_Key   24064  ; 0x5e00     0    94
  97.   C_F2_Key   24320  ; 0x5f00     0    95
  98.   C_F3_Key   24576  ; 0x6000     0    96
  99.   C_F4_Key   24832  ; 0x6100     0    97
  100.   C_F5_Key   25088  ; 0x6200     0    98
  101.   C_F6_Key   25344  ; 0x6300     0    99
  102.   C_F7_Key   25600  ; 0x6400     0   100
  103.   C_F8_Key   25856  ; 0x6500     0   101
  104.   C_F9_Key   26112  ; 0x6600     0   102
  105.   C_F10_Key  26368  ; 0x6700     0   103
  106.  
  107.   Enter_Key   7181  ; 0x1c0d    13    28
  108.   Esc_Key      283  ; 0x011b    27     1
  109.   Tab_Key     3849  ; 0x0f09     9    15
  110.   Ins_Key    20992  ; 0x5200     0    82
  111.   Del_Key    21248  ; 0x5300     0    83
  112.   Home_Key   18176  ; 0x4700     0    71
  113.   End_Key    20224  ; 0x4f00     0    79
  114.   C_Home_Key 30464  ; 0x7700     0   119
  115.   C_End_Key  29952  ; 0x7500     0   117
  116.   C_Ent_Key   7178  ; 0x1c0a    10    28
  117.   C_BS_Key    3711  ; 0x0e7f   127    14
  118.   Up_Key     18432  ; 0x4800     0    72
  119.   Down_Key   20480  ; 0x5000     0    80
  120.   Left_Key   19200  ; 0x4b00     0    75
  121.   Right_Key  19712  ; 0x4d00     0    77
  122.   PgDn_Key   20736  ; 0x5100     0    81
  123.   PgUp_Key   18688  ; 0x4900     0    73
  124.   G_Ast_Key  14122  ; 0x372a    42    55
  125.   G_Pls_Key  20011  ; 0x4e2b    43    78
  126.   G_Min_Key  18989  ; 0x4a2d    45    74
  127. )
  128.  
  129. ;;;----- Load ELF.EXP if not already loaded
  130.  
  131. (If(Not(Member(Findfile "ELF.EXP") (ADS)))
  132.   (If(Not(Xload"ELF" nil))
  133.     (Princ (Strcat
  134.       "\nERROR: Unable to xload ELF.EXP"
  135.       "\nThis program requires ELF to operate!\007"))
  136.   )
  137. )
  138.  
  139. (princ)
  140.  
  141. ;;; End of ELF.LSP
  142.  
  143.